home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _mask / !MaskUtils / !Rename / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-09-11  |  840b  |  43 lines
  1.  >Renamer
  2.  Michel Grimminck 1993
  3.  provided with !Mask
  4. )MAX=
  5. -48*1024        :
  6.  bufferspace
  7.  D MAX,buffer 256
  8. "Please enter the directory, containing sprites:";F$
  9.     /T%=0:NR=0:S$="                            "
  10. 8    
  11.  "OS_GBPB",9,F$,buffer,1,T%,256,"*" 
  12.  ,,S$,,T%
  13.  T%>0 
  14. B        
  15.  "OS_File",5,F$+"."+S$ 
  16.  U%,,F%,,L%:F%=(F% >>8)
  17. ?        
  18.  L%>=MAX 
  19. "Sprite:'"S$"' does not fit in buffer"
  20.          
  21.  F%=&FF9 
  22.  L%<MAX 
  23. &            
  24. "renaming sprite:";S$
  25. +            
  26. "OS_File",255,F$+"."+S$,D
  27. "            
  28. R%=16
  29. 27:D?R%=0:
  30. 2            
  31. (S$):D?(15+R%)=
  32. S$,R%)):
  33.              CH%=
  34. (F$+"."+S$)
  35. (            
  36. "OS_GBPB",&02,CH%,D,L%
  37.             
  38. -            
  39. "SetType "+F$+"."+S$+" &FF9"
  40.             
  41.         
  42.  T%=-1
  43.